home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / menu_usa / mdi1.fr_ / mdi1.fr (.txt)
Encoding:
Visual Basic Form  |  1998-02-07  |  1.9 KB  |  69 lines
  1. VERSION 4.00
  2. Begin VB.Form Child1 
  3.    Caption         =   "Child"
  4.    ClientHeight    =   2580
  5.    ClientLeft      =   1515
  6.    ClientTop       =   4680
  7.    ClientWidth     =   4710
  8.    Height          =   2985
  9.    Left            =   1455
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   2580
  13.    ScaleWidth      =   4710
  14.    Top             =   4335
  15.    Visible         =   0   'False
  16.    Width           =   4830
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   5000
  19.       Left            =   3720
  20.       Top             =   1320
  21.    End
  22.    Begin VB.ListBox List1 
  23.       Height          =   2400
  24.       IntegralHeight  =   0   'False
  25.       Left            =   0
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   3255
  29.    End
  30.    Begin MENUXLib.MenuX MenuX1 
  31.       Left            =   3480
  32.       Top             =   120
  33.       _Version        =   65536
  34.       _ExtentX        =   1720
  35.       _ExtentY        =   1296
  36.       _StockProps     =   0
  37.       MDIChild        =   -1  'True
  38.    End
  39. Attribute VB_Name = "Child1"
  40. Attribute VB_Creatable = False
  41. Attribute VB_Exposed = False
  42. Dim anz%
  43. Private Sub Form_Load()
  44. anz% = 0
  45. Caption = "Child " + Time$
  46. MenuX1.hWnd = Me.hWnd
  47. End Sub
  48. Private Sub Form_Resize()
  49. If Me.WindowState = 1 Then Exit Sub
  50. List1.Width = Me.ScaleWidth
  51. List1.Height = Me.ScaleHeight
  52. End Sub
  53. Private Sub MenuX1_Click(ByVal id As Integer)
  54. List1.AddItem "Click" + Str$(id)
  55. List1.TopIndex = List1.ListCount - 1
  56. End Sub
  57. Private Sub MenuX1_Help(ByVal id As Integer)
  58. List1.AddItem "Help" + Str$(id)
  59. List1.TopIndex = List1.ListCount - 1
  60. End Sub
  61. Private Sub MenuX1_Select(ByVal id As Integer)
  62. List1.AddItem "Select" + Str$(id)
  63. List1.TopIndex = List1.ListCount - 1
  64. End Sub
  65. Private Sub Timer1_Timer()
  66. anz% = anz% + 1
  67. Caption = "Child " + Time$ + "," + Str$(anz%) + ". Aktualisierung"
  68. End Sub
  69.